{***********************************
    Trabajo Practico.
    Integrantes:
        Loiacono, Tatiana	        tx.loiacono@gmail.com
        Aguilar Cogan, Damián	        damian.aguilarcogan@gmail.com
        Vicente, Mariano 	        m.vicent@gmail.com
        Bautista, Andres	        andres_abs@hotmail.com
        Engstfeld, Eric		        exengstfeld@hotmail.com
                
************************************}
Program Tp;
Uses
	Dos,crt;
    
Const
        MAX_PEDIDOS = 200;

Type
        {$I TipoDeDatos.pas}
   	
{*********Procedimientos y Funciones***************}
{***Manejo de archivos***}
        {$I ManejoDeArchivos.pas}
{***/Manejo de Archivos***}

{*** Manejo de Pedidos ***}
        {$I ManejoPedidos.pas}
{*** /Manejo de Pedidos ***}

{*** Registrar Reparacion ***}
        {$I ManejoReparaciones.pas}
{*** /Registrar Reparacion ***}

{*** Registrar Reparacion ***}
        {$I ManejoFaltantes.pas}
{*** /Registrar Reparacion ***}


{***El menu principal***}
Procedure MenuPrincipal();
Var
	Opcion : Integer;
	PedidosFaltantes:   TP_PedidosFaltantes;
	RepuestosFaltantes: TP_RepuestosFaltantes;
Begin
        PedidosFaltantes   := Nil;
        RepuestosFaltantes := Nil;

	Repeat
    	Writeln('-----------------Menu Principal--------------------');
    	Writeln('1 - Agregar un nuevo pedido de reparacion');
    	Writeln('2 - Registrar la reparacion de un electrodomesticos');
    	Writeln('3 - Ver Faltante de repuestos');
    	Writeln('4 - Salir');
    	Writeln('-----------------Menu Principal--------------------');
    	Readln(Opcion);

   	ClrScr;

    	Case Opcion Of
        	1:AgregarPedidoReparacion();
        	2:RegistrarReparacion(PedidosFaltantes, RepuestosFaltantes);
        	3:VerFaltantesRepuestos(PedidosFaltantes, RepuestosFaltantes);
    	End;

	Until (Opcion = 4);
	
	DestruirListaPedidos(PedidosFaltantes);
	DestruirListaRepuestos(RepuestosFaltantes);
End;
{*********/Procedimientos y Funciones*************}
Begin
    	ClrScr;
    	MenuPrincipal();
End.
